home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / startup / startup.dir / Lingo_14.ls < prev    next >
Encoding:
Text File  |  1997-11-07  |  978 b   |  34 lines
  1. on mouseDown
  2.   set tButtonState to word 2 of the name of member the memberNum of sprite the clickOn of castLib the castLibNum of sprite the clickOn
  3.   if tButtonState = "downState" then
  4.     exit
  5.   else
  6.     hMakeSound("startupClick.aif", 1)
  7.     case tButtonState of
  8.       "upState":
  9.         if hValidClick01() = 1 then
  10.           hButtonScripts(tButtonState)
  11.         end if
  12.       "rolloverState":
  13.         if hValidClick02() = 1 then
  14.           hButtonScripts(tButtonState)
  15.         end if
  16.     end case
  17.   end if
  18. end
  19.  
  20. on hButtonScripts pButtonState
  21.   hChangeCursor("watch")
  22.   if pButtonState = "rolloverState" then
  23.     hUndoButtonRollover()
  24.   end if
  25.   set tCurrentMoviePath to the moviePath
  26.   set n to the number of chars in tCurrentMoviePath
  27.   if the machineType = 256 then
  28.     set tProgramMoviePath to chars(tCurrentMoviePath, 1, n - 8) & "PROGRAM\"
  29.   else
  30.     set tProgramMoviePath to chars(tCurrentMoviePath, 1, n - 8) & "PROGRAM:"
  31.   end if
  32.   go(1, tProgramMoviePath & "LOGO")
  33. end
  34.